L3-Quarto

Let’s talk about rocks

```{r}
#| eval: false
print(rock)
```

summary(rock)

      area            peri            shape              perm        
 Min.   : 1016   Min.   : 308.6   Min.   :0.09033   Min.   :   6.30  
 1st Qu.: 5305   1st Qu.:1414.9   1st Qu.:0.16226   1st Qu.:  76.45  
 Median : 7487   Median :2536.2   Median :0.19886   Median : 130.50  
 Mean   : 7188   Mean   :2682.2   Mean   :0.21811   Mean   : 415.45  
 3rd Qu.: 8870   3rd Qu.:3989.5   3rd Qu.:0.26267   3rd Qu.: 777.50  
 Max.   :12212   Max.   :4864.2   Max.   :0.46413   Max.   :1300.00  

And now about anxiety and other stuff

'data.frame':   300 obs. of  4 variables:
 $ anxiety    : num  50.2 31.5 34 37.1 48.3 ...
 $ flexibility: num  44.4 47.7 65.6 50.7 51.3 ...
 $ mindfulness: chr  "no" "yes" "no" "no" ...
 $ activity   : chr  "pilates" "altro" "pilates" "altro" ...

summary(data)

    anxiety        flexibility    mindfulness          activity        
 Min.   : 1.483   Min.   :26.91   Length:300         Length:300        
 1st Qu.:25.977   1st Qu.:44.24   Class :character   Class :character  
 Median :33.922   Median :49.56   Mode  :character   Mode  :character  
 Mean   :33.418   Mean   :50.34                                        
 3rd Qu.:41.974   3rd Qu.:56.32                                        
 Max.   :64.775   Max.   :82.41                                        

Figure 1 illustrates a baby wearing a nirs cap with frontal probes.

knitr::include_graphics("img/bb.png")

Figure 1: A baby with a nirs cap

Figure 2 illustrates a plot

ggplot(mtcars, aes(hp, mpg, color = factor(am))) +
  geom_point() +
  geom_smooth(formula = y ~ x, method = "loess") +
  theme(legend.position = 'bottom')

Figure 2: A graph from mtcars